home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld: Hardware Guide 1994
/
Macworld Interactive - Hardware Guide 1994 (PDO).iso
/
Demos
/
Fractal Design Painter™
/
Painter 2.0 Demo
/
Painter 2.0 Demo.rsrc
/
STR#_9.txt
< prev
next >
Wrap
Text File
|
1992-12-28
|
3KB
|
269 lines
%%DocumentData: Binary
%%DocumentData: Clean8Bit
%%Extensions: CMYK
dopic
save
restore
%%EndComments
%%%%BlackPlate:%s
%%%%YellowPlate:%s
%%%%MagentaPlate:%s
%%%%CyanPlate:%s
%%DocumentProcessColors: Black
%%DocumentProcessColors: Yellow
%%DocumentProcessColors: Magenta
%%DocumentProcessColors: Cyan
%%DocumentProcessColors: Cyan Magenta Yellow Black
%%SuppressDotGainCompensation
%%%%BoundingBox: 0 0 %d %d
%%%%CreationDate: %s %s
%%%%Title: %s
%%Creator: Painter Version 2.0
%!PS-Adobe-3.0 EPSF-3.0
grestore end
0 %d translate 1 -1 scale %f %f scale %d %d translate
pixwidth pixheight scale
{currentfile picstr readstring pop} false 3 colorimage
{currentfile picstr readhexstring pop} false 3 colorimage
{currentfile picstr readhexstring pop} false 4 colorimage
{currentfile picstr readhexstring pop} image
gsave 0 %d translate 1 -1 scale
(Painter file: %s: %s %s: %s plate) show
AM
PM
0 setgray %f %f moveto
1 setgray %f %f moveto (K50) show
0 setgray %f %f moveto (C45 M55 Y65) show
1 setgray %f %f moveto (C50 M50 Y60) show
0 setgray %f %f moveto (C50 M50 Y50) show
black
yellow
magenta
cyan
(K) show
(Y) show
(M) show
(C) show
1 setgray %f %f moveto
currentfont [1 0 0 -1 0 0] makefont setfont
0 setgray newpath %f %f moveto lbox
bwx 6 mul neg 0 rlineto closepath fill } def
/lbox { bwx 6 mul 0 rlineto 0 bhx neg rlineto
unused #42
} def
/sproc%c {
1 fact div 1 fact div scale %f neg %f neg translate 0 %d translate 1 -1 scale
%f setgray newpath %f %f moveto lbox
%f %f /sproc%c load setscreen
%f %f /sproc%c load %f %f /sproc load setcolorscreen
%f %f /sproc%c load %f %f /sproc%c load
/dopic
{ width height 8
[width 0 0 height neg 0 height]
%d %d translate %f %f scale 1 -1 scale 0 %d translate
0 %d translate 1 -1 scale %f %f scale %d %d translate
{} {} {} {} setcolortransfer
/picstr %d string def
/pixheight %d def
/pixwidth %d def
/height %d def
/width %d def
gsave
grestore
gsave 1 -1 scale 0 %d neg translate %f %f translate fact fact scale
dopic
gsave %d %d translate width fact mul height fact mul scale
} def
{currentfile picstr readstring pop} image
{currentfile picstr readstring pop} false 4 colorimage
width height 8 [width 0 0 height neg 0 height]
{} settransfer
{} {} {} {} setcolortransfer
/dopic {
/picstr width string def
/width %d def /height %d def /fact %f def
40 dict begin gsave
1 setgray
0 setgray
0.5 setlinewidth
%f setgray newpath %f %f moveto dobox
bwx neg 0 rlineto closepath fill} def
/dobox {bwx 0 rlineto 0 bhx neg rlineto
/bhx %f def
/bwx %f def
newpath %f %f %f 0 360 arc closepath fill
newpath %f %f moveto %f %f lineto stroke